00100	MAG←MAG*.999; < FOR FIX BUG???
00200	VARIABLE /R;
00300	COMPILE;
00400	INSTRUMENT GLIS2;
00500	OSCIL(P4,MAG/P2,P5);
00600	OSCIL(MAG*P7-MAG*P3, MAG/P2,P10);
00700	OSCIL(U2,MAG/P8,P9);
00800	OSCIL(U1,MAG*P3+U3,P6);
00900	OUTA←OUTA+U4; END;
01000	INSTRUMENT GLISS;
01100	OSCIL(P4,MAG/P2,P5);
01200	OSCIL(P7*MAG-MAG*P3,MAG/P8,P9);
01300	OSCIL(U1,U2+MAG*P3,P6);
01400	OUTA←OUTA+U3;END;
01500	INSTRUMENT FM;
01600	OSCIL(P4,MAG/P2,P5);
01700	INTRP(P9*P7*MAG,P9*P8*MAG,P10);
01800	OSCIL(U2,P9*MAG,P11);
01900	NOSCIL(U1,U3+P3*MAG,P6);
02000	OUTA←OUTA+U4;R←U4*P12; END;
02100	
02200	INSTRUMENT FM2;
02300	OSCIL(P4,MAG/P2,P5);
02400	INTRP(P9*P7*MAG,P9*P8*MAG,P10);
02500	OSCIL(U2,P9*MAG,P11);
02600	NOSCIL(U1,U3+P3*MAG,P6);
02700	OUTA←OUTA+U4;R←U4*P12; END;
02800	INSTRUMENT NOISE;
02900	OSCIL(P4,MAG/P2,P5);
03000	RANDH(MAG*P7,MAG*P8);
03100	OSCIL(U1,MAG*P3+U2,P6);
03200	OUTA←OUTA+U3; END;
03300	
03400	INSTRUMENT FM3;
03500	OSCIL(P4,MAG/P2,P5);
03600	INTRP(P9*P7*MAG,P9*P8*MAG,P10);
03700	OSCIL(U2,P9*MAG,P11);
03800	OSCIL(U1,U3+P3*MAG,P6);
03900	OUTA←OUTA+U4; END;
04000	INSTRUMENT NOISE;
04100	OSCIL(P4,MAG/P2,P5);
04200	RANDH(MAG*P7,MAG*P8);
04300	OSCIL(U1,MAG*P3+U2,P6);
04400	OUTA←OUTA+U3; END;
04500	
04600	INSTRUMENT NOISX;
04700	OSCIL(P4,MAG/P2,P5);
04800	OSCIL(MAG*P9,MAG/P10,P11);
04900	RANDH(U2+MAG*P7,MAG*P8);
05000	OSCIL(U1,MAG*P3+U3,P6);
05100	OUTA←OUTA+U4; END;
05200	FINISH;
05300	
05400	ARRAY F5,F6,F7(512); <F1 is already present.
05500	SEG(F5);0,1  1,7  .7,12  .2,20  0,100;<Envelope
05600	SEG(F6);0,1  0,60  1,100; <Slope
05700	SYNTH(F1);1 1 3 .3  5 .2  7 .001 999;
05800	SEG(F7);0 1 1 100;
05900	
06000	
06100	PLAY;GLIS2 0 .5 100 2000 F5 F1 P3+5 .5 F6 F7;FINISH;